home *** CD-ROM | disk | FTP | other *** search
/ Game Cracker (Expanded Edition) / Game Cracker (Expanded Edition).iso / cracks / SWRUSH.ZIP / SWRUSH.PAS < prev   
Pascal/Delphi Source File  |  1998-05-22  |  2KB  |  81 lines
  1. { ────────────────────────────────────────────────────────────────────────
  2.                  SHADOW WARRIOR 3DFX PATCHED TO WORK ON A RUSH
  3.                               (c)1998 by Pope-X
  4.  
  5.   Homepage  :   http://huizen.dds.nl/~dbg
  6.   Email     :   dbg@dds.nl
  7.   CopyRight :   U can distribute and use this aslong as u don't ask
  8.                 any money for the programs coded with this source!
  9.   Warrenty  :   I don't Give ANY. if it doesn't work for u then its to bad!
  10.   Note      :   This is NOT illegal!
  11.  
  12.   ──────────────────────────────────────────────────────────────────────── }
  13.  
  14. { ────────────────────────────────────────────────────────────────────────
  15.   Well.. i'm still for opensource.. so here is the source.
  16.   this source was build in 2 minutes after i have found the location of
  17.   the patch with cracker.pas. now shadowwarrior works with a voodoo rush!
  18.   ──────────────────────────────────────────────────────────────────────── }
  19.  
  20. uses dos,crt,rafdradd;
  21. var f:file of char;
  22.     c:char;
  23.     Msgstr:string;
  24.     msgcol:byte;
  25.  
  26. procedure stop;
  27. begin
  28.   textattr:=msgcol;
  29.   Writeln(msgstr);
  30.   textattr:=7;
  31.   Writeln('────────────────────────────────────────────────────');
  32.   Writeln('Done By Pope-X             http://huizen.dds.nl/~dbg');
  33.   Writeln;
  34.   halt(0);
  35. end;
  36.  
  37. begin
  38.   textattr:=7;
  39.   Writeln('Patching sw3dfx.exe to make it work on a voodoo rush');
  40.   Writeln('────────────────────────────────────────────────────');
  41.   filemode:=fmreadwrite+fmdenynone;
  42.   {$I-}
  43.   assign(f,'SW3DFX.EXE');
  44.   Reset(f);
  45.   {$I+}
  46.   if ioresult<>0 then
  47.     begin
  48.        msgstr:='SW3DFX.EXE COULD NOT BE OPENED';
  49.        msgcol:=12;
  50.        stop;
  51.     end;
  52.   if filesize(f)<>2518858 then
  53.     begin
  54.        close(f);
  55.        msgstr:='SW3DFX.EXE NOT CORRECT SIZE (Diverent version?)';
  56.        msgcol:=12;
  57.        stop;
  58.     end;
  59.   Seek(f,1350385);
  60.   Read(f,c);
  61.   if c=#$74 then
  62.     begin
  63.        close(f);
  64.        msgstr:='SW3DFX.EXE ALREADY PATCHED';
  65.        msgcol:=12;
  66.        stop;
  67.     end;
  68.   if c=#$75 then
  69.     begin
  70.       Seek(f,1350385);
  71.       c:=#$74;
  72.       Write(f,c);
  73.       msgstr:='SW3DFX.EXE SUCSESFULLY PATCHED. ENJOY!';
  74.       msgcol:=11;
  75.     end else begin
  76.                 msgstr:='SW3DFX.EXE NOT CORRECT DATA ON PATCH LOCATION';
  77.                 msgcol:=12;
  78.              end;
  79.   close(f);
  80.   stop;
  81. end.